home *** CD-ROM | disk | FTP | other *** search
/ Healing Herbs / Healing Herbs.iso / setup2 / setup.mst < prev    next >
Text File  |  1995-10-05  |  35KB  |  918 lines
  1. rem **************************************************
  2. rem *          Editel Setup - Piante medicinali      *
  3. rem *                 Luglio 1995                    *
  4. rem **************************************************
  5.  
  6. '$INCLUDE 'setupapi.inc'
  7. '$INCLUDE 'msdetect.inc'
  8. ''$INCLUDE 'setst.inc'
  9.  
  10. ''Dialog box identificatori
  11. CONST ASKQUIT         =    200      '' Dbxproc : "FQuitDlgProc"
  12. CONST CHECK           =   2500      '' Dbxproc : "FCheckDlgProc"
  13. CONST DESTPATH        =    300      '' Dbxproc : "FEditDlgProc"
  14. CONST EXITFAILURE     =    400      '' Dbxproc : "FInfo0DlgProc"
  15. CONST EXITQUIT        =    600      '' Dbxproc : "FInfo0DlgProc"
  16. CONST EXITSUCCESS     =    700      '' Dbxproc : "FInfo0DlgProc"
  17. CONST ENDSETUP        =   1000      '' Dbxproc : "FInfo0DlgProc"
  18. CONST HELPCHECK       =   1500      '' Dbxproc : "FHelpDlgProc"
  19. CONST HELPDESTPATH    =   2200      '' Dbxproc : "FHelpDlgProc"
  20. CONST HELPWELCOME     =   1800      '' Dbxproc : "FHelpDlgProc"
  21. CONST OPTIONS         =    800      '' Dbxproc : "FRadioDlgProc"
  22. CONST QTIME_INSTALL   =   1600      '' Dbxproc : "FQuitDlgProc"
  23. CONST RESTART         =   2600      '' Dbxproc : "FQuitDlgProc"
  24. CONST SCREENSAVER     =   2700      '' Dbxproc : "FQuitDlgProc"
  25. CONST TOOBIGPROD      =   1300      '' Dbxproc : "FInfo0DlgProc"
  26. CONST TOOBIGVFW       =   1700      '' Dbxproc : "FInfo0DlgProc"
  27. CONST TOOBIGQTIM      =   2000      '' Dbxproc : "FInfo0DlgProc"
  28. CONST VIDEOINSTALL    =   1100      '' Dbxproc : "FQuitDlgProc"
  29. CONST WELCOME         =    100      '' Dbxproc : "FInfoDlgProc"
  30. CONST VFWESISTE       =   2800      '' Dbxproc : "FQuitDlgProc"
  31. CONST QTMESISTE       =   3000      '' Dbxproc : "FQuitDlgProc"
  32. CONST PRECQTIM        =   3100      '' Dbxproc : "FQuitDlgProc"
  33.  
  34.  
  35. CONST LOGO = 1      '' Id. della bitmap di risorsa per lo sfondo
  36.  
  37. GLOBAL SizeReq&     '' Spazio totale richiesta dalla installazione.
  38.  
  39. GLOBAL WinDir$      '' Windows dir.
  40. GLOBAL WinSysDir$   '' Windows System dir.
  41. GLOBAL Windrive$    '' Windows Drive Letter.
  42. GLOBAL SrcDir$      '' Source directory
  43.  
  44. GLOBAL Dest$        '' Path di destinazione del prodotto
  45. GLOBAL Gruppo$      '' Nome del nuovo gruppo di programmi da creare
  46. GLOBAL Exepg$       '' Nome del file eseguibile del programma installato
  47. GLOBAL Prod$        '' Nome del prodotto
  48. GLOBAL Icona$       '' Nome della icona esterna del programma installato
  49. GLOBAL Fontname$    '' Nome del font da installare
  50. GLOBAL Fontfile$    '' Nome del file font installare
  51.  
  52. GLOBAL font%        '' se 1 installo i font
  53. GLOBAL sys%     '' se 1 installo files di sistema
  54.  
  55. GLOBAL Cdletter$    '' Lettera del drive del lettore CD-rom - Info -
  56. GLOBAL Pathcd$      '' Path di dove è contenuto il .exe installato - Info -
  57. GLOBAL Proc$        '' Tipo di processore usato - Info -
  58. GLOBAL Screenheight%    '' Altezza dello schermo - Info -
  59. GLOBAL Screenwidth% '' Larghezza dello schermo - Info -
  60. GLOBAL Mouse%       '' 1 se esiste il mouse - Info -
  61.  
  62. DECLARE SUB Install_p         '' Soubroutine di installazione prodotto
  63. DECLARE SUB Install_video     '' Soubroutine di installazione di VfW
  64. DECLARE SUB Install_qtime     '' Soubroutine di installazione di Quick Time
  65.  
  66. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING       '' Crea il path completo
  67. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER    '' Controlla l'esistenza di una rete
  68. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER  '' ???
  69. DECLARE SUB Reboot LIB "iniupd.dll"
  70. DECLARE FUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER  '' Permette il restart di Windows
  71. ''DECLARE FUNCTION mciSendString LIB "mmsystem.dll" (szCommand AS STRING, szReturn AS STRING,wReturn AS INTEGER,hVoid AS INTEGER) AS LONG
  72. DECLARE FUNCTION OldQTime (wndir$, wndsysdir$) AS INTEGER    '' Controlla l'esistenza di Quick Time
  73. DECLARE FUNCTION OldVfWindow (wndir$, wndsysdir$) AS INTEGER '' Controlla l'esistenza di Video for Windows
  74.  
  75. ''TRAP CleanupTrap From "MSSHLSTF.DLL"
  76. ''End Trap
  77.  
  78. ''************************************************************************
  79. '' Altre var di supporto
  80. ''
  81. '' i% = var intera in out alle Message Box
  82. '' a& = var long in out alle chiamate mciSendString()
  83. '' device$ = stringa che identifica il device da aprire per l'mci
  84. '' Infpath$ = path del file setup.inf
  85. '' outdbx$ = stringa in uscita dalle dialog box
  86. '' test$ = var utilizzata per il controllo esistenza sezioni in .INI file
  87. ''
  88. ''************************************************************************
  89.  
  90. ''************************************************************************
  91. '' Background Screen - l'uso esclude il suono -
  92. ''************************************************************************
  93.  
  94.  ''Inst% = HinstFrame()
  95.  ''ret%  = Ctl3dRegister(Inst%)
  96.  ''ret%  = Ctl3dAutoSubClass(Inst%)
  97.  
  98.  ''hWnd% = HwndFrame()
  99.  ''ii%   = CreateCover(0,0,0,0,0)
  100.  ''hSetup= InitSetup(COMMAND$)
  101.  ''ret%  = SubSetMainWin(hWnd%)
  102.  ''ii%   = CloseCover()
  103.  
  104. ''*************************************************************************
  105.  
  106. CUIDLL$   = "mscuistf.dll"    '' dll contenente le Dbox di interfaccia
  107. HELPPROC$ = "FHelpDlgProc"    '' Help dialog procedure
  108. SetTitle    "Editel Setup"    '' Titolo della finestra di init
  109. SetBitmap    CUIDLL$, LOGO  '' Setting della bitmap di sfondo
  110.  
  111. INIT:
  112.     Dest$    = "C:\herb"            ''------
  113.     Gruppo$ = "CD-Rom Editel"                  ''------
  114.     Icona$  = ""                               ''------
  115.     Prod$    = "The Herb Shop"       ''------
  116.     Exepg$  = "erbe.exe"                       ''------
  117.     Fontname$ = ""                             ''------
  118.     Fontfile$ = ".FOT"                         ''------
  119.     SetSymbolValue "CheckItemsIn", "ON"
  120.  
  121.     font% = 0   ''non installo alcun font                ------
  122.     sys% = 0    ''non installo alcun files di sistema    ------
  123.     riavvio% = 0  ''settato a 1 dal programma se e' nec il riavvio
  124.  
  125.     '' Musichetta di introduzione
  126.     device$ = "open "+GetSymbolValue("STF_SRCDIR")+"setup2\musica.wav alias snd"
  127.     ''a& = mciSendString(device$,ret$,0,0)
  128.     ''a& = mciSendString("play snd",ret$,0,0)
  129.  
  130.     '' Controllo della versione di Windows
  131.     MajorVer% = GetWindowsMajorVersion()
  132.     MinorVer% = GetWindowsMinorVersion()
  133.     IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  134.        i% = DoMsgBox("Microsoft Windows 3.10 o successivo Φ richiesto per questo software. Effettuare l'aggiornamento di Windows.", "Attenzione !!", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  135.        END
  136.     END IF
  137.  
  138.     '' Lettura del .INF file
  139.     Infpath$ = GetSymbolValue("STF_SRCINFPATH")
  140.     IF Infpath$ = "" THEN
  141.        Infpath$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  142.     END IF
  143.     ReadInfFile Infpath$
  144.  
  145.     '' Lettura delle informazioni di sistema
  146.     WinDir$       = GetWindowsDir()
  147.     Windrive$     = MID$(GetWindowsDir, 1, 1)
  148.     WinSysDir$    = GetWindowsSysDir()
  149.     Cdletter$     = MID$(GetSymbolValue("STF_SRCDIR"),1,1)
  150.     Pathcd$       = GetSymbolValue("STF_SRCDIR")+"erbe\"     ''------
  151.     SrcDir$       = GetSymbolValue("STF_SRCDIR")
  152.     Screenheight% = GetScreenHeight()
  153.     Screenwidth%  = GetScreenWidth()
  154.     Mouse%        = HasMouseInstalled()
  155.     Typeproc%     = GetProcessorType()
  156.     IF Typeproc% = 0 THEN
  157.              Proc$="8086"
  158.       ELSEIF Typeproc% = 1 THEN
  159.              Proc$="80186"
  160.       ELSEIF Typeproc% = 2 THEN
  161.              Proc$="80286"
  162.       ELSEIF Typeproc% = 3 THEN
  163.              Proc$="80386"
  164.       ELSEIF Typeproc% = 4 THEN
  165.              Proc$="80486"
  166.     END IF
  167.  
  168.     '' Controllo Windrive
  169.     i% = SetSizeCheckMode(scmOnIgnore)
  170.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  171.     IF IsDriveValid(WinDrive$) = 0 THEN
  172.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') non è valido !!", "Editel Setup - Attenzione!!", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  173.         GOTO QUIT
  174.     END IF
  175.  
  176. SCRSAVETEST:   '' Cntl esistenza di 1 screen saver e se lo trovo lo disattivo
  177.     test$ = GetIniKeyString("WIN.INI","windows","ScreenSaveActive")
  178.     IF test$="1" THEN
  179.            outdbx$ = UIStartDlg(CUIDLL$, SCREENSAVER,"FQuitDlgProc", 0, "")
  180.            IF outdbx$ = "EXIT" THEN  ''disinstallo lo screen saver
  181.                CreateIniKeyValue "win.ini","windows","ScreenSaveActive","0",cmoOverwrite
  182.                CreateIniKeyValue WinDir$ + "system.ini","boot","SCRNSAVE.EXE","",cmoOverwrite
  183.            ELSEIF outdbx$ = "REACTIVATE" THEN
  184.                GOTO SCRSAVETEST
  185.            END IF
  186.            UIPop 1
  187.     END IF
  188.     curs% = ShowWaitCursor()
  189.  
  190. ''QTWEXIST:  '' Controllo esistenza di Quick Time 2.0 -
  191. ''  IF (OldQTime(WinDir$, WinSysDir$)) = 0 THEN
  192. ''      outdbx$ = UIStartDlg(CUIDLL$,QTMESISTE,"FQuitDlgProc",0,"")
  193. ''      AddListItem "CheckItemsIn", "ON"
  194. ''      UIpop 1
  195. ''  ELSE
  196. ''      AddListItem "CheckItemsIn", "OFF"
  197. ''  END IF
  198.  
  199. VFWEXIST:  '' Controllo esistenza di Video for Windows 1.1 -
  200.     IF (OldVfWindow(WinDir$, WinSysDir$)) = 0 THEN
  201.           ''outdbx$ = UIStartDlg(CUIDLL$,VFWESISTE,"FQuitDlgProc",0,"")
  202.           AddListItem "CheckItemsIn", "ON"
  203.           UIpop 1
  204.     ELSE
  205.           AddListItem "CheckItemsIn", "OFF"
  206.     END IF
  207.     RestoreCursor curs%
  208.  
  209. WELCOME0:
  210.     UIPop 1
  211. WELCOME:
  212.     outdbx$ = UIStartDlg(CUIDLL$,WELCOME,"FInfoDlgProc",HELPWELCOME,HELPPROC$)
  213.     IF outdbx$ = "CONTINUE" THEN     '' continuo il setup
  214.        UIPop 1
  215.     ELSEIF outdbx$ = "REACTIVATE" THEN
  216.        GOTO WELCOME
  217.     ELSEIF outdbx$ = "CANCEL" THEN   '' esco dal setup
  218.        GOSUB ASKQUIT
  219.        GOTO WELCOME
  220.     END IF
  221.  
  222. RADIOBOX0:
  223.     ''outdbx$ = UIStartDlg(CUIDLL$, CHECK,"FCheckDlgProc", 0, "")
  224. RADIOBOX1:
  225.     outdbx$ = UIStartDlg(CUIDLL$, CHECK,"FCheckDlgProc", HELPCHECK, HELPPROC$)
  226.     Option1$ = GetListItem("CheckItemsOut",1)    ''Prodotto
  227.     ''Option3$ = GetListItem("CheckItemsOut",3)   ''Quick Time
  228.     Option3$ = "OFF"
  229.     Option2$ = GetListItem("CheckItemsOut",2)    ''Video for Window
  230.     IF outdbx$ = "CONTINUE" THEN
  231.            ClearCopyList
  232.            IF Option2$ = "ON" THEN  ''Installo VfW
  233.              UIPop 1
  234.              IF OnWindowsNT() THEN
  235.                 i% = DoMsgBox("Questa versione di Video for Windows non può funzionare sotto Windows NT","Editel Setup - Attenzione !!",MB_OK+MB_TASKMODAL+MB_ICONHAND)
  236.                 END
  237.              END IF
  238.              ClearCopyList
  239.              SDir$=SrcDir$+"vforw\"
  240.              ''a& = mciSendString("close snd",ret$,0,0)
  241.              AddSectionFilesToCopyList "VfW rtm", SDir$, WinSysDir$
  242.              AddSectionFilesToCopyList "OLE2",SDir$, WinSysDir$
  243.              AddSectionFilesToCopyList "ACM Drivers", SDir$, WinSysDir$
  244.              AddSectionFilesToCopyList "MPlayer",  SDir$, WinDir$
  245.              AddSectionFilesToCopyList "AVICodecs",SDir$, WinSysDir$
  246.              AddSectionFilesToCopyList "Indeo-ini",SDir$, WinDir$
  247.              ''Check Windrive diskspace
  248.              SizeReq& = GetCopyListCost ("","", "")
  249.              IF SizeReq& <> 0 THEN
  250.                 outdbx$ = UIStartDlg(CUIDLL$, TOOBIGVFW, "FInfo0DlgProc", 0, "")
  251.                 END
  252.              END IF
  253.              Install_video
  254.              riavvio%=1
  255.            END IF
  256.            IF Option3$ = "ON"   THEN ''Installo QuickTime
  257.              UIPop 1
  258.              IF DoesFileExist(MakePath(wndsysdir$,"mciqtw.drv"),femExists) THEN
  259.              OVERWRITE:
  260.                    outdbx$ = UIStartDlg(CUIDLL$,PRECQTIM,"FQuitDlgProc", 0, "")
  261.                    IF outdbx$ = "EXIT" THEN ''non installo qtime
  262.                     UIPop 1
  263.                     GOTO QUIT
  264.                    ELSEIF outdbx$ = "REACTIVATE" THEN
  265.                     GOTO OVERWRITE
  266.                    END IF
  267.              END IF
  268.              UIPop 1
  269.              ClearCopyList
  270.              '' Prepare Copy list and check size
  271.              Qthelpdir$ = Windrive$+":\qtw11"
  272.              CreateDir Qthelpdir$,cmoNone
  273.              SDir$=SrcDir$+"qtw11"
  274.              ShDir$=SrcDir$+"qtw11"
  275.              ''a& = mciSendString("close snd",ret$,0,0)
  276.              ''AddSectionFilesToCopyList "QTimeWinFiles",SDir$, WinDir$
  277.              AddSectionFilesToCopyList "QtimeSysFiles",SDir$, WinSysDir$
  278.              AddSectionFilesToCopyList "QTimehelpfiles",ShDir$,Qthelpdir$
  279.              '' Test dello spazio richiesto su disco
  280.              SizeReq& = GetCopyListCost ("","", "")
  281.              IF SizeReq& <> 0 THEN
  282.                 outdbx$ = UIStartDlg(CUIDLL$, TOOBIGQTIM,"FInfo0DlgProc", 0, "")
  283.                 END
  284.              END IF
  285.              Install_qtime
  286.            END IF
  287.            IF Option1$ = "ON" THEN  ''Installo prodotto
  288.              UIPop 1
  289.              GOSUB DESTPATH
  290.              UIPop 1
  291.              ClearCopyList
  292.              CreateDir Dest$,cmoNone
  293.              SDir$=Dest$+"\export"      '' dir per download scheda
  294.              CreateDir SDir$,cmoNone    '' ------
  295.              SDir$=SrcDir$+"erbe\"
  296.              ''a& = mciSendString("close snd",ret$,0,0)
  297.              AddSectionFilesToCopyList "FileProdotto",SDir$,Dest$
  298.              IF font% = 1 THEN
  299.                 AddSectionFilesToCopyList "Fonts",SDir$,WinSysDir$
  300.              END IF
  301.              IF sys% = 1 THEN
  302.                 AddSectionFilesToCopyList "SystemFiles",SDir$,WinSysDir$
  303.              END IF
  304.              ''Check Windrive diskspace
  305.              SizeReq& = GetCopyListCost ("","", "")
  306.              IF SizeReq& <> 0 THEN
  307.                 outdbx$ = UIStartDlg(CUIDLL$, TOOBIGPROD, "FInfo0DlgProc", 0, "")
  308.                 END
  309.              END IF
  310.              Install_p
  311.            END IF
  312.  
  313.            IF riavvio%=1 THEN     ''Se funzionasse scommentare
  314.              GOTO RESTART0
  315.            END IF
  316.     ELSEIF outdbx$ = "EXIT" THEN   '' uscita dal programma
  317.            GOSUB ASKQUIT
  318.            GOTO RADIOBOX1
  319.     ELSEIF outdbx$ = "REACTIVATE" THEN
  320.            GOTO RADIOBOX1
  321.     END IF
  322.  
  323. GOTO QUIT
  324. END
  325.  
  326. ''-----------Sub "Destpath"--------------------
  327. DESTPATH:
  328.     SetSymbolValue "EditTextIn", Dest$
  329.     SetSymbolValue "EditFocus", "END"
  330. DESTPATH1:
  331.     outdbx$ = UIStartDlg(CUIDLL$,DESTPATH,"FEditDlgProc",HELPDESTPATH,HELPPROC$)
  332.     Dest$ = GetSymbolValue("EditTextOut")
  333.     IF outdbx$ = "CONTINUE" THEN
  334.        IF IsDirWritable(Dest$) = 0 THEN
  335.           i% = DoMsgBox("Attenzione il path specificato non è valido !!","Editel Setup",MB_OK+MB_TASKMODAL+MB_ICONHAND)
  336.           GOTO DESTPATH1
  337.        END IF
  338.        UIPop 1
  339.     ELSEIF outdbx$ = "REACTIVATE" THEN
  340.            GOTO DESTPATH1
  341.     ELSEIF outdbx$ = "BACK" THEN
  342.            UIPop 1
  343.     ELSEIF outdbx$ = "EXIT" THEN
  344.            GOSUB ASKQUIT
  345.            GOTO DESTPATH
  346.     END IF
  347.     UIPop 1
  348.     RETURN
  349.  
  350. ''-----------------------------------------------
  351. RESTART0:
  352.   ''Restart di Windows se sono stati installati files di sistema
  353.   Restrt% = RestartListEmpty()
  354.   Exe$ = WinDir$ + "\_msrstrt.exe"
  355.   Batch$ = WinDir$+ "\_mssetup.bat"
  356.   empty$ = ""
  357. RESTART:
  358.     IF Restrt% = 0 THEN
  359.        outdbx$ = UIStartDlg(CUIDLL$, RESTART, "FQuitDlgProc", 0, "")
  360.        IF outdbx$ = "CONTINUE" THEN
  361.           i% = ExitExecRestart()
  362.           RemoveFile Exe$, cmoForce
  363.           RemoveFile Batch$, cmoForce
  364.           END
  365.        ELSEIF outdbx$ = "EXIT" THEN
  366.           UIPop 1
  367.           GOTO QUIT
  368.           ''outdbx$ = UIStartDlg(CUIDLL$, ENDSETUP, "FInfo0DlgProc", 0, "")
  369.           ''UIPopAll
  370.           ''END
  371.        ELSE
  372.           UIPop 1
  373.        END IF
  374.     ELSE
  375.        outdbx$ = UIStartDlg(CUIDLL$, RESTART, "FQuitDlgProc", 0, "")
  376.        IF outdbx$ = "CONTINUE" THEN
  377.           i% = ExitWindowsExec (Exe$, empty$)
  378.           IF i% = 0 THEN
  379.              GOTO RESTART
  380.           ELSE
  381.              END
  382.           ENDIF
  383.        ELSEIF outdbx$ = "EXIT" THEN
  384.           UIPopAll
  385.           END
  386.        ELSEIF outdbx$ = "REACTIVATE" THEN
  387.           GOTO RESTART
  388.        ELSE
  389.           UIPop 1
  390.        END IF
  391.     END IF
  392.  
  393. QUIT:
  394.     ON ERROR GOTO ERRQUIT
  395.     IF ERR = 0 THEN
  396.        dlg% = EXITSUCCESS
  397.     ELSEIF ERR = STFQUIT THEN
  398.        dlg% = EXITQUIT
  399.     ELSE
  400.        dlg% = EXITFAILURE
  401.     END IF
  402. QUITL1:
  403.     outdbx$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  404.     IF ERR = 0 THEN
  405.        ShowProgmanGroup Gruppo$, 1, cmoNone
  406.     END IF
  407.     UIPop 1
  408.     END   'Fine del programma
  409.  
  410. '--------------------------------
  411. ERRQUIT:
  412.     i% = DoMsgBox("Problemi di installazione !! ", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  413.     END
  414.  
  415. ASKQUIT:
  416.     outdbx$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  417.     IF outdbx$ = "EXIT" THEN   '' uscita dal setup
  418.        UIPopAll
  419.        END
  420.     ELSEIF outdbx$ = "REACTIVATE" THEN
  421.        GOTO ASKQUIT
  422.     ELSE
  423.        UIPop 1
  424.     END IF
  425.     RETURN
  426.  
  427. '****************************************************************************
  428.  
  429. SUB Install_video STATIC
  430.  
  431.     ''SetCopyGaugePosition 100,120
  432.     SetRestartDir WinDir$
  433.     CopyFilesInCopyList
  434.     ''Updating WIN.INI and SYSTEM.INI
  435.     IF VflatdPresent() = 0 THEN
  436.        CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  437.     END IF
  438.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  439.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  440.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "indeov.drv", cmoOverwrite
  441.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  442.     I% = DoesIniKeyExist (WinDir$+"system.ini", "Drivers", "VIDC.RT21")
  443.     IF I% = 0  THEN
  444.        CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "indeov.drv", cmoOverwrite
  445.     END IF
  446.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "indeov.drv", cmoOverwrite
  447.     CreateIniKeyValue WinDir$ + "win.ini", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  448.     CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  449.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  450.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  451.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  452.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  453.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  454.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  455.     Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  456.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  457.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  458.     '' Mplayer
  459.     CreateProgmanItem "Accessories", "Media Player", MakePath(WinDir$, "mplayer.exe"), "", cmoOverwrite
  460.     Run ("profdisp.exe")   
  461. END SUB
  462.  
  463. '*************************************************************************
  464.  
  465. SUB Install_p STATIC
  466.  
  467.     SetCopyGaugePosition 70,70
  468.     CopyFilesInCopyList
  469.  
  470.     IF font% = 1 THEN
  471.           CreateIniKeyValue "WIN.INI","fonts",Fontname$,Fontfile$,cmoOverwrite
  472.     END IF
  473.     IF  (DoesFileExist(MakePath(Dest$,"pathcd"),femExists)=1) THEN
  474.            RemoveFile MakePath(Dest$,"pathcd"),cmoForce
  475.     END IF
  476.     IF  (DoesFileExist(MakePath(Dest$,"inst.ini"),femExists)=1) THEN
  477.            RemoveFile MakePath(Dest$,"inst.ini"),cmoForce
  478.     END IF
  479.     ini$ = MakePath(Dest$, "INST.INI")
  480.     CreateIniKeyValue ini$,Dest$,"path_hd","",cmoOverwrite
  481.     ''CreateIniKeyValue ini$,"PROP","PATHCD"  ,Pathcd$    ,cmoOverwrite
  482.     ''CreateIniKeyValue ini$,"PROP","CDLETTER",Cdletter$      ,cmoOverwrite
  483.     ''CreateIniKeyValue ini$,"PROP","HDPATH"  ,Dest$          ,cmoOverwrite
  484.     ''CreateIniKeyValue ini$,"PROP","SHEIGHT" ,STR$(Screenheight%),cmoOverwrite
  485.     ''CreateIniKeyValue ini$,"PROP","SWIDTH"  ,STR$(Screenwidth%) ,cmoOverwrite
  486.     ''CreateIniKeyValue ini$,"PROP","PROCTYPE",Proc$      ,cmoOverwrite
  487.     ''CreateIniKeyValue ini$,"PROP","MOUSE"   ,STR$(Mouse%)       ,cmoOverwrite
  488.     ''CreateIniKeyValue ini$,"PROP","WINDRIVE",Windrive$      ,cmoOverwrite
  489.     ''CreateIniKeyValue ini$,"PROP","WINDIR"  ,WinDir$     ,cmoOverwrite
  490.     ini$ = MakePath(Dest$, "PATHCD")
  491.     CreateIniKeyValue ini$,Pathcd$,"path","",cmoOverwrite
  492.  
  493.     CreateProgmanGroup Gruppo$,"", cmoNone
  494.     CreateProgmanItem Gruppo$,Prod$,MakePath(Dest$,Exepg$),"", cmoOverwrite
  495.     ShowProgmanGroup Gruppo$,1, cmoNone
  496. END SUB
  497.  
  498. '************************************************************************
  499.  
  500. SUB Install_qtime STATIC
  501.     ver$ = GetVersionOfFile(MakePath(WinSysDir$,"qtim.dll"))
  502.     ver1&=GetVersionNthField(ver$,1)
  503.     ver2&=GetVersionNthField(ver$,2)
  504.     DeadPath$=WinDir$
  505.     IF (ver1&<>1 OR ver2&<>1 ) THEN
  506.        ''curs% = ShowWaitCursor()
  507.        ''Rimuovo le estensioni nei file .ini
  508.        ''RemoveIniKey "win.ini","Extensions","mov="+WinDir$+"player.exe ^.mov",cmoForce
  509.        ''RemoveIniKey "win.ini","Extensions","pic="+WinDir$+"player.exe ^.pic",cmoForce
  510.        ''RemoveIniKey WinSysDir$+"system.ini","mci","QTWVideo="+WinSysDir$+"mciqtw.drv",cmoForce
  511.        ''tutte le versioni
  512.        ''RemoveFile MakePath(DeadPath$, "qtim.dll"), cmoForce
  513.        ''RemoveFile MakePath(DeadPath$, "qtimcmgr.dll"), cmoForce
  514.        ''versione 1.0.0
  515.        ''RemoveFile MakePath(DeadPath$, "qcmc.dll")  , cmoForce
  516.        ''RemoveFile MakePath(DeadPath$, "qtjpeg.dll"), cmoForce
  517.        ''RemoveFile MakePath(DeadPath$, "qtraw.dll") , cmoForce
  518.        ''RemoveFile MakePath(DeadPath$, "qtsmc.dll") , cmoForce
  519.        ''RemoveFile MakePath(DeadPath$, "qtrpza.dll"), cmoForce
  520.        ''RemoveFile MakePath(DeadPath$, "qtrle.dll") , cmoForce
  521.        ''RemoveFile MakePath(DeadPath$, "qtcvid.dll"), cmoForce
  522.        ''RemoveFile MakePath(DeadPath$, "qtrt21.dll"), cmoForce
  523.        ''RemoveFile MakePath(DeadPath$, "qtvhdw.dll"), cmoForce
  524.        ''versione 1.1.x e successiva
  525.        ''RemoveFile MakePath(DeadPath$, "mciqtw.drv"), cmoForce
  526.        ''RemoveFile MakePath(DeadPath$, "qcmc.qtc")  , cmoForce
  527.        ''RemoveFile MakePath(DeadPath$ , "qtjpeg.qtc"), cmoForce
  528.        ''RemoveFile MakePath(DeadPath$, "qtraw.qtc") , cmoForce
  529.        ''RemoveFile MakePath(DeadPath$, "qtsmc.qtc") , cmoForce
  530.        ''RemoveFile MakePath(DeadPath$, "qtrpza.qtc"), cmoForce
  531.        ''RemoveFile MakePath(DeadPath$, "qtrle.qtc") , cmoForce
  532.        ''RemoveFile MakePath(DeadPath$, "qtcvid.qtc"), cmoForce
  533.        ''RemoveFile MakePath(DeadPath$, "qtrt21.qtc"), cmoForce
  534.        ''RemoveFile MakePath(DeadPath$, "navg.qtc")  , cmoForce
  535.        ''RemoveFile MakePath(DeadPath$, "qtiv31.qtc"), cmoForce
  536.        ''versione 1.9 e successiva
  537.        ''RemoveFile MakePath(DeadPath$, "qtvhdw.qtc") , cmoForce
  538.        ''RemoveFile MakePath(DeadPath$, "qtyvu9.qtc") , cmoForce
  539.        ''RemoveFile MakePath(DeadPath$, "qtmsvc.qtc") , cmoForce
  540.        ''RemoveFile MakePath(DeadPath$, "qtiv32.qtc") , cmoForce
  541.        ''RemoveFile MakePath(DeadPath$, "qtiyvu9.qtc"), cmoForce
  542.        ''RemoveFile MakePath(DeadPath$, "qtvhdw.qtc") , cmoForce
  543.        ''RemoveFile MakePath(DeadPath$, "dhio_dh.qtc"), cmoForce
  544.        ''RemoveFile MakePath(DeadPath$, "reelmgic.qtc"), cmoForce
  545.        ''RestoreCursor curs%
  546.        ''versione 2.0
  547.     END IF
  548.  
  549.     ''SetCopyGaugePosition 100,120
  550.     CopyFilesInCopyList
  551.  
  552.     ''Updating WIN.INI and SYSTEM.INI
  553.     stringa0$=WinSysDir$+"mciqtw.drv"
  554.     stringa1$="QuickTime Movie,QuickTime Movie,"+WinDir$+"player.exe,picture"
  555.     stringa2$="QuickTime Picture,QuickTime Picture,"+WinDir$+"viewer.exe,picture"
  556.     CreateIniKeyValue WinDir$ + "system.ini", "mci", "QTWVideo", WinSysDir$+"mciqtw.drv", cmoOverwrite
  557.     CreateIniKeyValue WinDir$ + "system.ini", "Macx", "DeviceBitmaps", "OFF", cmoOverwrite
  558.     CreateIniKeyValue WinDir$ + "win.ini", "Extensions","mov", WinSysDir$+"player.exe ^.mov", cmoOverwrite
  559.     CreateIniKeyValue WinDir$ + "win.ini", "Extensions","pic", WinSysDir$+"viewer.exe ^.pic", cmoOverwrite
  560.     CreateIniKeyValue WinDir$ + "win.ini", "mci extensions", "pic", "QTWVideo", cmoOverwrite
  561.     CreateIniKeyValue WinDir$ + "win.ini", "mci extensions", "mov", "QTWVideo", cmoOverwrite
  562.     CreateIniKeyValue WinDir$ + "win.ini", "mci extensions", "jpg", "QTWVideo", cmoOverwrite
  563.     CreateIniKeyValue WinDir$ + "win.ini", "Mach", "devicebitmap", "off", cmoOverwrite
  564.     CreateIniKeyValue WinDir$ + "control.ini", "drivers desc", stringa0$, "[MCI]QuickTime for Windows", cmoOverwrite
  565.     CreateIniKeyValue WinDir$ + "win.ini", "embedding", "PlayerFrameClass", stringa1$, cmoOverwrite
  566.     CreateIniKeyValue WinDir$ + "win.ini", "embedding", "ViewerFrameClass", stringa2$, cmoOverwrite
  567.  
  568.     ''aggiorno il reg.dat
  569.     RUN WinSysDir$+"player.exe install"
  570.     RUN WinSysDir$+"viewer.exe install"
  571.  
  572.     ''creo il QTW
  573.     CreateIniKeyValue WinDir$ + "qtw.ini", "Options", "VideoOptimize","DIB",cmoOverwrite
  574.     CreateIniKeyValue WinDir$ + "qtw.ini", "Video", "Optimize","driver",cmoOverwrite
  575.     CreateIniKeyValue WinDir$ + "qtw.ini", "Override", "DREF","NO",cmoOverwrite
  576.     CreateIniKeyValue WinDir$ + "qtw.ini", "QuickTime for Windows", "Implementation","Full",cmoOverwrite
  577.  
  578.     ''creo un gruppo di prodotti per Qtime 1.1
  579.     CreateProgmanGroup "QuickTime for Windows 1.1","", cmoNone
  580.     CreateProgmanItem "QuickTime for Windows 1.1","Movie Player",MakePath(WinSysDir$,"player.exe"),"", cmoOverwrite
  581.     CreateProgmanItem "QuickTime for Windows 1.1","Picture Viewer",MakePath(WinSysDir$,"viewer.exe"),"", cmoOverwrite
  582.     CreateProgmanItem "QuickTime for Windows 1.1","Readme",MakePath(Windrive$+":","qtw11\readme.wri"),"", cmoOverwrite
  583. END SUB
  584.  
  585. '=============================================================
  586. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  587.     IF szDir$ = "" THEN
  588.        MakePath = szFile$
  589.     ELSEIF szFile$ = "" THEN
  590.        MakePath = szDir$
  591.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  592.        MakePath = szDir$ + szFile$
  593.     ELSE
  594.        MakePath = szDir$ + "\" + szFile$
  595.     END IF
  596. END FUNCTION
  597.  
  598. '==============================================================
  599. FUNCTION OldQTime (wndir$, wndsysdir$) STATIC AS INTEGER
  600.  
  601.   OldQTime = 1  ''qtime e' gia installato correttamente
  602.   IF (DoesFileExist(MakePath(wndsysdir$,"qtim.dll"),femExists)) = 1 THEN
  603.       ver$ = GetVersionOfFile(MakePath(Path$,"qtim.dll"))
  604.   ELSE
  605.       ver$ = "0.0.0.00"
  606.       OldQTime = 0   ''qtime non e' installato correttamente
  607.   END IF
  608.   ver1&=GetVersionNthField(ver$,1)
  609.   ver2&=GetVersionNthField(ver$,2)
  610.   ver3&=GetVersionNthField(ver$,3)
  611.   IF ( ver1&=1 AND ver2&=1 AND ver3&=32 ) THEN
  612.     IF ( GetIniKeyString(MakePath(wndir$,"system.ini"),"mci","QTWVideo" ) <> MakePath(wndsysdir$,"mciqtw.drv" )) THEN
  613.            OldQtime = 0
  614.            EXIT FUNCTION
  615.     END IF
  616.     IF ( GetIniKeyString(MakePath(wndir$,"win.ini"),"mci extensions","mov" ) <> "QTWVideo" ) THEN
  617.            OldQtime = 0
  618.            EXIT FUNCTION
  619.     END IF
  620.     IF   ( DoesFileExist(MakePath(wndsysdir$,"mciqtenu.dll"),femExists) = 0 ) THEN
  621.            OldQtime = 0
  622.            EXIT FUNCTION
  623.     END IF
  624.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qthndlr.dll"),femExists) = 0 ) THEN
  625.            OldQtime = 0
  626.            EXIT FUNCTION
  627.     END IF
  628.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtim.dll"),femExists) = 0 ) THEN
  629.            OldQtime = 0
  630.            EXIT FUNCTION
  631.     END IF
  632.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtimcmgr.dll"),femExists) = 0 ) THEN
  633.            OldQtime = 0
  634.            EXIT FUNCTION
  635.     END IF
  636.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtole.dll"),femExists) = 0 ) THEN
  637.            OldQtime = 0
  638.            EXIT FUNCTION
  639.     END IF
  640.     IF   ( DoesFileExist(MakePath(wndsysdir$,"mciqtw.drv"),femExists) = 0 ) THEN
  641.            OldQtime = 0
  642.            EXIT FUNCTION
  643.     END IF
  644.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtmovie.vbx"),femExists) = 0 ) THEN
  645.            OldQtime = 0
  646.            EXIT FUNCTION
  647.     END IF
  648.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtpic.vbx"),femExists) = 0 ) THEN
  649.            OldQtime = 0
  650.            EXIT FUNCTION
  651.     END IF
  652.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtmsvc.qtc"),femExists) = 0 ) THEN
  653.            OldQtime = 0
  654.            EXIT FUNCTION
  655.     END IF
  656.     IF   ( DoesFileExist(MakePath(wndsysdir$,"navg.qtc"),femExists) = 0 ) THEN
  657.            OldQtime = 0
  658.            EXIT FUNCTION
  659.     END IF
  660.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qcmc.qtc"),femExists) = 0 ) THEN
  661.            OldQtime = 0
  662.            EXIT FUNCTION
  663.     END IF
  664.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtcvid.qtc"),femExists) = 0 ) THEN
  665.            OldQtime = 0
  666.            EXIT FUNCTION
  667.     END IF
  668.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtjpeg.qtc"),femExists) = 0 ) THEN
  669.            OldQtime = 0
  670.            EXIT FUNCTION
  671.     END IF
  672.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtraw.qtc"),femExists) = 0 ) THEN
  673.            OldQtime = 0
  674.            EXIT FUNCTION
  675.     END IF
  676.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtrle.qtc"),femExists) = 0 ) THEN
  677.            OldQtime = 0
  678.            EXIT FUNCTION
  679.     END IF
  680.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtrpza.qtc"),femExists) = 0 ) THEN
  681.            OldQtime = 0
  682.            EXIT FUNCTION
  683.     END IF
  684.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtsmc.qtc"),femExists) = 0 ) THEN
  685.            OldQtime = 0
  686.            EXIT FUNCTION
  687.     END IF
  688.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtvhdw.qtc"),femExists) = 0 ) THEN
  689.            OldQtime = 0
  690.            EXIT FUNCTION
  691.     END IF
  692.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtyvu9.qtc"),femExists) = 0 ) THEN
  693.            OldQtime = 0
  694.            EXIT FUNCTION
  695.     END IF
  696.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtrt21.qtc"),femExists) = 0 ) THEN
  697.            OldQtime = 0
  698.            EXIT FUNCTION
  699.     END IF
  700.     IF   ( DoesFileExist(MakePath(wndsysdir$,"qtnotify.exe"),femExists) = 0 ) THEN
  701.            OldQtime = 0
  702.            EXIT FUNCTION
  703.     END IF
  704.     IF   ( DoesFileExist(MakePath(wndsysdir$,"playenu.dll"),femExists) = 0 ) THEN
  705.            OldQtime = 0
  706.            EXIT FUNCTION
  707.     END IF
  708.     IF   ( DoesFileExist(MakePath(wndsysdir$,"viewenu.dll"),femExists) = 0 ) THEN
  709.            OldQtime = 0
  710.            EXIT FUNCTION
  711.     END IF
  712.     IF   ( DoesFileExist(MakePath(wndsysdir$,"player.exe"),femExists) = 0 ) THEN
  713.            OldQtime = 0
  714.            EXIT FUNCTION
  715.     END IF
  716.     IF   ( DoesFileExist(MakePath(wndsysdir$,"viewer.exe"),femExists) = 0 ) THEN
  717.            OldQtime = 0
  718.            EXIT FUNCTION
  719.     END IF
  720.     IF   ( DoesFileExist(MakePath(wndir$,"qtw.ini"),femExists) = 0 ) THEN
  721.            OldQtime = 0
  722.            EXIT FUNCTION
  723.     END IF
  724.   END IF
  725. END FUNCTION
  726.  
  727. '-----------------------------
  728.  
  729. FUNCTION OldVfWindow (wndir$, wndsysdir$) STATIC AS INTEGER
  730.   OldVfWindow = 2   ''qtime e' gia installato correttamente
  731.   IF (DoesFileExist(MakePath(wndsysdir$,"avifile.dll"),femExists)) = 1 THEN
  732.        ver$=GetVersionOfFile(MakePath(wndsysdir$,"avifile.dll"))
  733.   ELSE
  734.        ver$="0.00.0.000"
  735.        OldVfWindow = 0   ''Vfw non e' installato correttamente
  736.   END IF
  737.   ver1&=GetVersionNthField(ver$,1)
  738.   ver2&=GetVersionNthField(ver$,2)
  739.   IF ( ver1&<>1 OR ver2&<>10 ) THEN
  740.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","VIDC.CVID") ="" THEN
  741.            OldVfWindow = 0
  742.            EXIT FUNCTION
  743.     END IF
  744.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","VIDC.MSVC") ="" THEN
  745.            OldVfWindow = 0
  746.            EXIT FUNCTION
  747.     END IF
  748.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","VIDC.IV31") ="" THEN
  749.            OldVfWindow = 0
  750.            EXIT FUNCTION
  751.     END IF
  752.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","VIDC.MRLE") ="" THEN
  753.            OldVfWindow = 0
  754.            EXIT FUNCTION
  755.     END IF
  756.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","VIDC.YVU9") ="" THEN
  757.            OldVfWindow = 0
  758.            EXIT FUNCTION
  759.     END IF
  760.     IF GetIniKeyString((MakePath(wndir$,"win.ini")),"mci extensions","avi") ="" THEN
  761.            OldVfWindow = 0
  762.            EXIT FUNCTION
  763.     END IF
  764.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"mci","AVIVideo") ="" THEN
  765.            OldVfWindow = 0
  766.            EXIT FUNCTION
  767.     END IF
  768.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","WaveMapper") ="" THEN
  769.            OldVfWindow = 0
  770.            EXIT FUNCTION
  771.     END IF
  772.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","MSACM.msadpcm") ="" THEN
  773.            OldVfWindow = 0
  774.            EXIT FUNCTION
  775.     END IF
  776.     IF GetIniKeyString((MakePath(wndir$,"system.ini")),"Drivers","MSACM.imaadpcm") ="" THEN
  777.            OldVfWindow = 0
  778.            EXIT FUNCTION
  779.     END IF
  780.     IF ( DoesFileExist(MakePath(wndsysdir$,"imaadpcm.acm"),femExists) = 0 ) THEN
  781.            OldVfWindow = 0
  782.            EXIT FUNCTION
  783.     END IF
  784.     IF ( DoesFileExist(MakePath(wndsysdir$,"map_win.hlp"),femExists) = 0 ) THEN
  785.            OldVfWindow = 0
  786.            EXIT FUNCTION
  787.     END IF
  788.     IF ( DoesFileExist(MakePath(wndsysdir$,"msacm.dll"),femExists) = 0 ) THEN
  789.            OldVfWindow = 0
  790.            EXIT FUNCTION
  791.     END IF
  792.     IF ( DoesFileExist(MakePath(wndsysdir$,"msacm.drv"),femExists) = 0 ) THEN
  793.            OldVfWindow = 0
  794.            EXIT FUNCTION
  795.     END IF
  796.     IF ( DoesFileExist(MakePath(wndsysdir$,"msadpcm.acm"),femExists) = 0 ) THEN
  797.            OldVfWindow = 0
  798.            EXIT FUNCTION
  799.     END IF
  800.     IF ( DoesFileExist(MakePath(wndsysdir$,"iccvid.drv"),femExists) = 0 ) THEN
  801.            OldVfWindow = 0
  802.            EXIT FUNCTION
  803.     END IF
  804.     IF ( DoesFileExist(MakePath(wndsysdir$,"indeov.drv"),femExists) = 0 ) THEN
  805.            OldVfWindow = 0
  806.            EXIT FUNCTION
  807.     END IF
  808.     IF ( DoesFileExist(MakePath(wndsysdir$,"ir21_r.dll"),femExists) = 0 ) THEN
  809.            OldVfWindow = 0
  810.            EXIT FUNCTION
  811.     END IF
  812.     IF ( DoesFileExist(MakePath(wndsysdir$,"ir30.dll"),femExists) = 0 ) THEN
  813.            OldVfWindow = 0
  814.            EXIT FUNCTION
  815.     END IF
  816.     IF ( DoesFileExist(MakePath(wndsysdir$,"msrle.drv"),femExists) = 0 ) THEN
  817.            OldVfWindow = 0
  818.            EXIT FUNCTION
  819.     END IF
  820.     IF ( DoesFileExist(MakePath(wndsysdir$,"msvidc.drv"),femExists) = 0 ) THEN
  821.            OldVfWindow = 0
  822.            EXIT FUNCTION
  823.     END IF
  824.     IF ( DoesFileExist(MakePath(wndsysdir$,"cleanup.reg"),femExists) = 0 ) THEN
  825.            OldVfWindow = 0
  826.            EXIT FUNCTION
  827.     END IF
  828.     IF ( DoesFileExist(MakePath(wndsysdir$,"ole2.dll"),femExists) = 0 ) THEN
  829.            OldVfWindow = 0
  830.            EXIT FUNCTION
  831.     END IF
  832.     IF ( DoesFileExist(MakePath(wndsysdir$,"ole2.reg"),femExists) = 0 ) THEN
  833.            OldVfWindow = 0
  834.            EXIT FUNCTION
  835.     END IF
  836.     IF ( DoesFileExist(MakePath(wndsysdir$,"ole2conv.dll"),femExists) = 0 ) THEN
  837.            OldVfWindow = 0
  838.            EXIT FUNCTION
  839.     END IF
  840.     IF ( DoesFileExist(MakePath(wndsysdir$,"ole2disp.dll"),femExists) = 0 ) THEN
  841.            OldVfWindow = 0
  842.            EXIT FUNCTION
  843.     END IF
  844.     IF ( DoesFileExist(MakePath(wndsysdir$,"ole2nls.dll"),femExists) = 0 ) THEN
  845.            OldVfWindow = 0
  846.            EXIT FUNCTION
  847.     END IF
  848.     IF ( DoesFileExist(MakePath(wndsysdir$,"ole2prox.dll"),femExists) = 0 ) THEN
  849.            OldVfWindow = 0
  850.            EXIT FUNCTION
  851.     END IF
  852.     IF ( DoesFileExist(MakePath(wndsysdir$,"storage.dll"),femExists) = 0 ) THEN
  853.            OldVfWindow = 0
  854.            EXIT FUNCTION
  855.     END IF
  856.     IF ( DoesFileExist(MakePath(wndsysdir$,"typelib.dll"),femExists) = 0 ) THEN
  857.            OldVfWindow = 0
  858.            EXIT FUNCTION
  859.     END IF
  860.     IF ( DoesFileExist(MakePath(wndsysdir$,"acmcmprs.dll"),femExists) = 0 ) THEN
  861.            OldVfWindow = 0
  862.            EXIT FUNCTION
  863.     END IF
  864.     IF ( DoesFileExist(MakePath(wndsysdir$,"avicap.dll"),femExists) = 0 ) THEN
  865.            OldVfWindow = 0
  866.            EXIT FUNCTION
  867.     END IF
  868.     IF ( DoesFileExist(MakePath(wndsysdir$,"avifile.dll"),femExists) = 0 ) THEN
  869.            OldVfWindow = 0
  870.            EXIT FUNCTION
  871.     END IF
  872.     IF ( DoesFileExist(MakePath(wndsysdir$,"compobj.dll"),femExists) = 0 ) THEN
  873.            OldVfWindow = 0
  874.            EXIT FUNCTION
  875.     END IF
  876.     IF ( DoesFileExist(MakePath(wndsysdir$,"ctl3d.dll"),femExists) = 0 ) THEN
  877.            OldVfWindow = 0
  878.            EXIT FUNCTION
  879.     END IF
  880.     IF ( DoesFileExist(MakePath(wndsysdir$,"dispdib.dll"),femExists) = 0 ) THEN
  881.            OldVfWindow = 0
  882.            EXIT FUNCTION
  883.     END IF
  884.     IF ( DoesFileExist(MakePath(wndsysdir$,"dva.386"),femExists) = 0 ) THEN
  885.            OldVfWindow = 0
  886.            EXIT FUNCTION
  887.     END IF
  888.     IF ( DoesFileExist(MakePath(wndsysdir$,"mciavi.drv"),femExists) = 0 ) THEN
  889.            OldVfWindow = 0
  890.            EXIT FUNCTION
  891.     END IF
  892.     IF ( DoesFileExist(MakePath(wndsysdir$,"msvideo.dll"),femExists) = 0 ) THEN
  893.            OldVfWindow = 0
  894.            EXIT FUNCTION
  895.     END IF
  896.     IF ( DoesFileExist(MakePath(wndir$,"indeo.ini"),femExists) = 0 ) THEN
  897.            OldVfWindow = 0
  898.            EXIT FUNCTION
  899.     END IF
  900.     IF ( DoesFileExist(MakePath(wndir$,"mciole.dll"),femExists) = 0 ) THEN
  901.            OldVfWindow = 0
  902.            EXIT FUNCTION
  903.     END IF
  904.     IF ( DoesFileExist(MakePath(wndir$,"mplayer.exe"),femExists) = 0 ) THEN
  905.            OldVfWindow = 0
  906.            EXIT FUNCTION
  907.     END IF
  908.     IF ( DoesFileExist(MakePath(wndir$,"mplayer.hlp"),femExists) = 0 ) THEN
  909.            OldVfWindow = 0
  910.            EXIT FUNCTION
  911.     END IF
  912.     IF ( DoesFileExist(MakePath(wndir$,"mplayer.reg"),femExists) = 0 ) THEN
  913.            OldVfWindow = 0
  914.            EXIT FUNCTION
  915.     END IF
  916.   END IF
  917. END FUNCTION
  918.